www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminpicsp\D_admin_Article_class.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <!--#include file=inc_lanmu_bl.asp--> <% AJAXshowLoader() %> <style type="text/css"> <!-- .STYLE2 {color: #FFFFFF; font-weight: bold; } --> </style> <div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px"> <table height="30" width=730 border="0" cellpadding="2" cellspacing="0" bordercolor="#999999" style="border:#999999 1px"> <tr> <td> <table height="30" width=730 border="0" cellpadding="0" cellspacing="0" bordercolor="#999999"> <tr> <td width="20" height="30" align="center" class="adminth"><p class="STYLE2">id</p> </td> <td width="355" height="30" align="center" class="adminth"><p class="STYLE2">分类(括号内为顺序号) </p> </td> <td width="290" align="center" class="adminth"><span class="STYLE2">操作</span></td> <td width="85" align="center" class="adminth"><span class="STYLE2">连接性质</span></td> </tr> <% biao="[ND_pic_or_sp_class]" sys_content_type=trim(request("sys_content_type")) set rs44g=server.CreateObject("adodb.recordset") rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1 if find_dataw(lanmu_taba,rs44g("id"),4)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if %> <script language="javascript"> function delcccl(id){ if (confirm("分类和分类下面的所有内容会被删除,确认删除?")==1) { self.location="D_del_class.asp?id="+id+"&sys_content_type=<%=sys_content_type%>"; } } </script> <% iiiyy=0 call next_cen("",0) function next_cen(pid_list,deepth) set rs=server.CreateObject("adodb.recordset") pppcid="-123" if pid_list<>"" then ppplista=split(pid_list,",") ppplistaubd=ubound(ppplista)-1 pppcid=ppplista(ppplistaubd) end if rs.open "select * from "&biao&" where ((deepth="&deepth&" and ((parent_id_list like '%"&pid_list&"%') or (parent_id='"&pppcid&"')) and sys_content_type='"&sys_content_type&"')) order by orders asc",conn,1,1 if pid_list<>"" then lista=split(pid_list,",") numa=ubound(lista) p_id=cstr(lista(numa)) else p_id=0 end if do while not rs.eof pid_list222=rs("parent_id_list")&","&rs("id")&"," deepth222=rs("deepth")+1 set rs2=server.CreateObject("adodb.recordset") rs2.open "select * from "&biao&" where ((deepth="&deepth222&" and ((parent_id_list like '%"&pid_list222&"%') or (parent_id='"&rs("id")&"')) and sys_content_type='"&sys_content_type&"')) order by orders asc",conn,1,1 if rs2.eof then if pid_list<>"" then lista=split(pid_list,",") numa=ubound(lista) p_id=cstr(lista(numa-1)) else p_id=0 end if if p_id=0 then p_id=-1 'response.write "<level1 id="""&rs("id")&""" parentTypeID="""&p_id&""" caption="""&rs("ClassName")&""" PRI=""1"" explain="""&rs("id")&"""/>"&vbcrlf %> <tr> <td width="20" height="30" align="left" bgcolor="#cccccc"><%=rs("id")%></td> <td width="355" height="30" align="left" bgcolor="<%if iiiyy mod 2=0 then response.write "#ffffff" else response.write "#eeeeee":end if %>"> <%for iiiii1=1 to cint(deepth222) if iiiii1=cint(deepth222) then %> ├<% else %> │<% end if next %><%=rs("classname")%><font color="#FF0000">(<%=rs("orders")%>)</font> </td> <td width="290" align="center" bgcolor="<%if iiiyy mod 2=0 then response.write "#ffffff" else response.write "#eeeeee":end if%>"> <a href="D_add_acticle.asp?classid=<%=rs("id")%>&sys_content_type=<%=sys_content_type%>">添加内容</a> | <a href="D_add_class.asp?pid=<%=rs("id")%>&sys_content_type=<%=sys_content_type%>">添加子分类</a> | <a href="D_edit_class.asp?id=<%=rs("id")%>&sys_content_type=<%=sys_content_type%>">分类设置</a> | <a href="#" onclick="delcccl('<%=rs("id")%>');">删除分类</a> </td> <td width="85" align="center" bgcolor="<%if iiiyy mod 2=0 then response.write "#ffffff" else response.write "#eeeeee":end if:iiiyy=iiiyy+1%>"> <%if rs("is_link_class")="1" then %> <font color="#FF0000">外部连接</font> <%else%> <font color="#0033FF">内部连接</font> <%end if%> </td> </tr> <% if not rs.eof then rs.movenext if rs.eof or rs.bof then 'response.write "</level0>" 'call next_cen_class(pid_list222,deepth222) exit function else need_benji_next=1 end if else 'response.write "<level0 id="""&rs("id")&""" parentTypeID=""" 'if deepth=0 then response.write "-1" else response.write p_id 'response.write """ caption="""&rs("ClassName")&""" PRI=""2"" explain="""&rs("id")&""" >"&vbcrlf %> <tr> <td width="20" height="30" align="left" bgcolor="#cccccc"><%=rs("id")%></td> <td width="355" height="30" align="left" bgcolor="<%if iiiyy mod 2=0 then response.write "#ffffff" else response.write "#eeeeee":end if %>"> <%for iiiii1=1 to cint(deepth222) if iiiii1=cint(deepth222) then %> ├<% else %> │<% end if next %><%=rs("classname")%><font color="#FF0000">(<%=rs("orders")%>)</font> </td> <td width="290" align="center" bgcolor="<%if iiiyy mod 2=0 then response.write "#ffffff" else response.write "#eeeeee":end if%>"> <a href="D_add_acticle.asp?classid=<%=rs("id")%>&sys_content_type=<%=sys_content_type%>">添加内容</a> | <a href="D_add_class.asp?pid=<%=rs("id")%>&sys_content_type=<%=sys_content_type%>">添加子分类</a> | <a href="D_edit_class.asp?id=<%=rs("id")%>&sys_content_type=<%=sys_content_type%>">分类设置</a> | <a href="#" onclick="delcccl('<%=rs("id")%>');">删除分类</a> </td> <td width="85" align="center" bgcolor="<%if iiiyy mod 2=0 then response.write "#ffffff" else response.write "#eeeeee":end if:iiiyy=iiiyy+1%>"> <%if rs("is_link_class")="1" then %> <font color="#FF0000">外部连接</font> <%else%> <font color="#0033FF">内部连接</font> <%end if%> </td> </tr> <% call next_cen(pid_list222,deepth222) if not rs.eof then rs.movenext need_benji_next=1 if rs.eof or rs.bof then 'if deepth<>0 then response.write "</level0>" 'call next_cen_class(pid_list222,deepth222) exit function end if end if if need_benji_next=0 then exit do end if need_benji_next=0 loop end function %> </table> </td> </tr> </table> </div> <script language=javascript> AJAXfade(1,'l_list') </script> <% AJAXcloseLoader() %>